Мы поместим кнопку по нажатию на которую будет производиться запуск скрипта.

И код напишем для этого.

Private Sub Command1_Click()
Dim LineString As String
Dim SubName As String
Open "c:\1.vb" For Input As #1
Input #1, SubName
Do While Not EOF(1)
    Input #1, LineString
    strCode = strCode + LineString
Loop
Close #1
ScriptControl1.AddCode strCode
ScriptControl1.Run SubName
End Sub

Открываем и читаем файл. Только первой строкой будет название функции которую вызываем.

Hello
Sub Hello()
MsgBox "Hello VB"
End Sub

Запускаем смотрим.